program dimainfo4;

{$APPTYPE CONSOLE}

uses
type arr=array[0,99] of integer;
     var a:^arr;
     q:integer;
begin
  new(a);
  for q:=1 to 100
  a^[q]:=q;
  dispose(a);
end.
 